home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / EXAMPL26.PRO < prev    next >
Text File  |  1986-10-07  |  545b  |  21 lines
  1. /* Program 26 */
  2.  
  3. predicates
  4.     run
  5.  
  6. goal
  7.     run.
  8.  
  9. clauses
  10.     run :-
  11.         makewindow(1,20,7,"A blue window",2,5,10,50),
  12.         write("The characters are red"),
  13.         makewindow(2,176,7,"A light cyan window",14,25,10,40),
  14.         write("This window is light cyan, the "),
  15.         write("letters are black and blinking."),
  16.         write("  Please type an integer to exit."),nl,
  17.         readint(_),
  18.         removewindow,
  19.         write("    Please type an integer to exit."),nl,
  20.         readint(_),
  21.         removewindow.